Visual Basic Controls

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / enigma10 / enigma10.exe / Main / vb4Form1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1999-06-12 | 36.4 KB | 1,139 lines

VERSION 4.00 Begin VB.Form Form1 BorderStyle = 3 'Fixed Dialog Caption = "VB 4 Enigma Sample" ClientHeight = 5100 ClientLeft = 1200 ClientTop = 1545 ClientWidth = 8790 Height = 5505 Left = 1140 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5100 ScaleWidth = 8790 ShowInTaskbar = 0 'False Top = 1200 Width = 8910 Begin VB.CommandButton Command5 Caption = "Encrypt File" Height = 345 Left = 4635 TabIndex = 70 Top = 3525 Width = 3975 End Begin VB.Frame Frame1 Caption = "Start Positions" Height = 1110 Index = 2 Left = 4635 TabIndex = 49 Top = 2280 Width = 3990 Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "128" Height = 270 Index = 29 Left = 180 TabIndex = 69 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "128" Height = 270 Index = 28 Left = 900 TabIndex = 68 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "128" Height = 270 Index = 27 Left = 1620 TabIndex = 67 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "128" Height = 270 Index = 26 Left = 2340 TabIndex = 66 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "128" Height = 270 Index = 25 Left = 3060 TabIndex = 65 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "128" Height = 270 Index = 24 Left = 180 TabIndex = 64 Top = 645 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "128" Height = 270 Index = 23 Left = 900 TabIndex = 63 Top = 630 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "128" Height = 270 Index = 22 Left = 1620 TabIndex = 62 Top = 630 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "128" Height = 270 Index = 21 Left = 2340 TabIndex = 61 Top = 630 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "128" Height = 270 Index = 20 Left = 3060 TabIndex = 60 Top = 630 Width = 435 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 29 Left = 645 TabIndex = 59 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 28 Left = 1365 TabIndex = 58 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 27 Left = 2085 TabIndex = 57 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 26 Left = 2805 TabIndex = 56 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 25 Left = 3525 TabIndex = 55 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 24 Left = 645 TabIndex = 54 Top = 645 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 23 Left = 1365 TabIndex = 53 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 22 Left = 2085 TabIndex = 52 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 21 Left = 2805 TabIndex = 51 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 20 Left = 3525 TabIndex = 50 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End End Begin VB.Frame Frame1 Caption = "Ring Settings" Height = 1110 Index = 1 Left = 4635 TabIndex = 28 Top = 1155 Width = 3990 Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "1" Height = 270 Index = 19 Left = 180 TabIndex = 48 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "1" Height = 270 Index = 18 Left = 900 TabIndex = 47 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "1" Height = 270 Index = 17 Left = 1620 TabIndex = 46 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "1" Height = 270 Index = 16 Left = 2340 TabIndex = 45 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "1" Height = 270 Index = 15 Left = 3060 TabIndex = 44 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "1" Height = 270 Index = 14 Left = 180 TabIndex = 43 Top = 645 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "1" Height = 270 Index = 13 Left = 900 TabIndex = 42 Top = 630 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "1" Height = 270 Index = 12 Left = 1620 TabIndex = 41 Top = 630 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "1" Height = 270 Index = 11 Left = 2340 TabIndex = 40 Top = 630 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "1" Height = 270 Index = 10 Left = 3060 TabIndex = 39 Top = 630 Width = 435 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 19 Left = 645 TabIndex = 38 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 18 Left = 1365 TabIndex = 37 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 17 Left = 2085 TabIndex = 36 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 16 Left = 2805 TabIndex = 35 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 15 Left = 3525 TabIndex = 34 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 14 Left = 645 TabIndex = 33 Top = 645 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 13 Left = 1365 TabIndex = 32 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 12 Left = 2085 TabIndex = 31 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 11 Left = 2805 TabIndex = 30 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 10 Left = 3525 TabIndex = 29 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End End Begin VB.Frame Frame1 Caption = "Rotor Order" Height = 1110 Index = 0 Left = 4635 TabIndex = 7 Top = 30 Width = 3990 Begin Spin.SpinButton SpinButton1 Height = 270 Index = 9 Left = 3525 TabIndex = 27 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 8 Left = 2805 TabIndex = 26 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 7 Left = 2085 TabIndex = 25 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 6 Left = 1365 TabIndex = 24 Top = 630 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 5 Left = 645 TabIndex = 23 Top = 645 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 4 Left = 3525 TabIndex = 22 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 3 Left = 2805 TabIndex = 21 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 2 Left = 2085 TabIndex = 20 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 1 Left = 1365 TabIndex = 19 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin Spin.SpinButton SpinButton1 Height = 270 Index = 0 Left = 645 TabIndex = 18 Top = 315 Width = 210 _Version = 65536 _ExtentX = 370 _ExtentY = 476 _StockProps = 73 BorderColor = 0 ShadeColor = 8421504 ShadowThickness = 1 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "10" Height = 270 Index = 9 Left = 3060 TabIndex = 17 Top = 630 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "9" Height = 270 Index = 8 Left = 2340 TabIndex = 16 Top = 630 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "8" Height = 270 Index = 7 Left = 1620 TabIndex = 15 Top = 630 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "7" Height = 270 Index = 6 Left = 900 TabIndex = 14 Top = 630 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "6" Height = 270 Index = 5 Left = 180 TabIndex = 13 Top = 645 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "5" Height = 270 Index = 4 Left = 3060 TabIndex = 12 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "4" Height = 270 Index = 3 Left = 2340 TabIndex = 11 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "3" Height = 270 Index = 2 Left = 1620 TabIndex = 10 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "2" Height = 270 Index = 1 Left = 900 TabIndex = 9 Top = 315 Width = 435 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "1" Height = 270 Index = 0 Left = 180 TabIndex = 8 Top = 315 Width = 435 End End Begin VB.CommandButton Command3 Caption = "Clear" Height = 345 Left = 7365 TabIndex = 6 Top = 3975 Width = 1245 End Begin VB.CommandButton Command2 Caption = "Swap" Height = 345 Left = 5970 TabIndex = 5 Top = 3975 Width = 1245 End Begin VB.CommandButton Command1 Caption = "Encrypt" Height = 345 Left = 4620 TabIndex = 4 Top = 3975 Width = 1245 End Begin Enigma10.EnigmaControl EnigmaControl1 Left = 3960 Top = 2520 _ExtentX = 847 _ExtentY = 847 End Begin ComctlLib.ProgressBar ProgressBar1 Height = 300 Left = 4620 TabIndex = 71 Top = 4590 Width = 4035 _ExtentX = 7117 _ExtentY = 529 _Version = 327680 BorderStyle = 1 Appearance = 1 MouseIcon = "Form1.frx":0000 End Begin MSComDlg.CommonDialog CommonDialog1 Left = 8205 Top = 4965 _ExtentX = 847 _ExtentY = 847 _Version = 327680 End Begin VB.Label Label2 AutoSize = -1 'True Caption = "After" Height = 195 Left = 120 TabIndex = 3 Top = 2475 Width = 330 End Begin VB.Label Label1 AutoSize = -1 'True Caption = "Before" Height = 195 Left = 105 TabIndex = 2 Top = 45 Width = 465 End Begin RichTextLib.RichTextBox RichTextBox2 Height = 2190 Left = 105 TabIndex = 1 Top = 2700 Width = 4335 _ExtentX = 7646 _ExtentY = 3863 _Version = 327680 Enabled = -1 'True TextRTF = $"Form1.frx":001C End Begin RichTextLib.RichTextBox RichTextBox1 Height = 2055 Left = 105 TabIndex = 0 Top = 330 Width = 4335 _ExtentX = 7646 _ExtentY = 3625 _Version = 327680 Enabled = -1 'True TextRTF = $"Form1.frx":00E5 End Attribute VB_Name = "Form1" Attribute VB_Creatable = False Attribute VB_Exposed = False Private Sub Command1_Click() EnigmaControl1.Text = RichTextBox1.Text EnigmaControl1.Encrypt RichTextBox2.Text = EnigmaControl1.Text End Sub Private Sub Command2_Click() RichTextBox1.Text = RichTextBox2.Text End Sub Private Sub Command3_Click() RichTextBox2.Text = "" End Sub Private Sub Command5_Click() CommonDialog1.DialogTitle = "Open Text File" CommonDialog1.Filter = "Any File (*.*)|*.*" CommonDialog1.Action = 1 If CommonDialog1.filename <> "" Then EnigmaControl1.SourceFile = CommonDialog1.filename EnigmaControl1.TargetFile = "c:\test.txt" EnigmaControl1.EncryptFile ProgressBar1 Kill CommonDialog1.filename Name "c:\test.txt" As CommonDialog1.filename ProgressBar1.Value = 0 End If End Sub Private Sub SpinButton1_SpinDown(Index As Integer) If Index < 10 Then If Val(Label3(Index)) <= 1 Then Label3(Index) = "10" Else Label3(Index) = Val(Label3(Index)) - 1 Select Case Index Case 0 EnigmaControl1.RotorOrder1 = Val(Label3(Index)) Case 1 EnigmaControl1.RotorOrder2 = Val(Label3(Index)) Case 2 EnigmaControl1.RotorOrder3 = Val(Label3(Index)) Case 3 EnigmaControl1.RotorOrder4 = Val(Label3(Index)) Case 4 EnigmaControl1.RotorOrder5 = Val(Label3(Index)) Case 5 EnigmaControl1.RotorOrder6 = Val(Label3(Index)) Case 6 EnigmaControl1.RotorOrder7 = Val(Label3(Index)) Case 7 EnigmaControl1.RotorOrder8 = Val(Label3(Index)) Case 8 EnigmaControl1.RotorOrder9 = Val(Label3(Index)) Case 9 EnigmaControl1.RotorOrder10 = Val(Label3(Index)) End Select End If If Val(Label3(Index)) < 0 Then Label3(Index) = "255" Else Label3(Index) = Val(Label3(Index)) - 1 Select Case Index Case 10 EnigmaControl1.RingSetting1 = Val(Label3(Index)) Case 11 EnigmaControl1.RingSetting2 = Val(Label3(Index)) Case 12 EnigmaControl1.RingSetting3 = Val(Label3(Index)) Case 13 EnigmaControl1.RingSetting4 = Val(Label3(Index)) Case 14 EnigmaControl1.RingSetting5 = Val(Label3(Index)) Case 15 EnigmaControl1.RingSetting6 = Val(Label3(Index)) Case 16 EnigmaControl1.RingSetting7 = Val(Label3(Index)) Case 17 EnigmaControl1.RingSetting8 = Val(Label3(Index)) Case 18 EnigmaControl1.RingSetting9 = Val(Label3(Index)) Case 19 EnigmaControl1.RingSetting10 = Val(Label3(Index)) Case 20 EnigmaControl1.StartPosition1 = Val(Label3(Index)) Case 21 EnigmaControl1.StartPosition2 = Val(Label3(Index)) Case 22 EnigmaControl1.StartPosition3 = Val(Label3(Index)) Case 23 EnigmaControl1.StartPosition4 = Val(Label3(Index)) Case 24 EnigmaControl1.StartPosition5 = Val(Label3(Index)) Case 25 EnigmaControl1.StartPosition6 = Val(Label3(Index)) Case 26 EnigmaControl1.StartPosition7 = Val(Label3(Index)) Case 27 EnigmaControl1.StartPosition8 = Val(Label3(Index)) Case 28 EnigmaControl1.StartPosition9 = Val(Label3(Index)) Case 29 EnigmaControl1.StartPosition10 = Val(Label3(Index)) End Select End If End If End Sub Private Sub SpinButton1_SpinUp(Index As Integer) If Index < 10 Then If Val(Label3(Index)) >= 10 Then Label3(Index) = "1" Else Label3(Index) = Val(Label3(Index)) + 1 Select Case Index Case 0 EnigmaControl1.RotorOrder1 = Val(Label3(Index)) Case 1 EnigmaControl1.RotorOrder2 = Val(Label3(Index)) Case 2 EnigmaControl1.RotorOrder3 = Val(Label3(Index)) Case 3 EnigmaControl1.RotorOrder4 = Val(Label3(Index)) Case 4 EnigmaControl1.RotorOrder5 = Val(Label3(Index)) Case 5 EnigmaControl1.RotorOrder6 = Val(Label3(Index)) Case 6 EnigmaControl1.RotorOrder7 = Val(Label3(Index)) Case 7 EnigmaControl1.RotorOrder8 = Val(Label3(Index)) Case 8 EnigmaControl1.RotorOrder9 = Val(Label3(Index)) Case 9 EnigmaControl1.RotorOrder10 = Val(Label3(Index)) End Select End If If Val(Label3(Index)) > 255 Then Label3(Index) = "0" Else Label3(Index) = Val(Label3(Index)) + 1 Select Case Index Case 10 EnigmaControl1.RingSetting1 = Val(Label3(Index)) Case 11 EnigmaControl1.RingSetting2 = Val(Label3(Index)) Case 12 EnigmaControl1.RingSetting3 = Val(Label3(Index)) Case 13 EnigmaControl1.RingSetting4 = Val(Label3(Index)) Case 14 EnigmaControl1.RingSetting5 = Val(Label3(Index)) Case 15 EnigmaControl1.RingSetting6 = Val(Label3(Index)) Case 16 EnigmaControl1.RingSetting7 = Val(Label3(Index)) Case 17 EnigmaControl1.RingSetting8 = Val(Label3(Index)) Case 18 EnigmaControl1.RingSetting9 = Val(Label3(Index)) Case 19 EnigmaControl1.RingSetting10 = Val(Label3(Index)) Case 20 EnigmaControl1.StartPosition1 = Val(Label3(Index)) Case 21 EnigmaControl1.StartPosition2 = Val(Label3(Index)) Case 22 EnigmaControl1.StartPosition3 = Val(Label3(Index)) Case 23 EnigmaControl1.StartPosition4 = Val(Label3(Index)) Case 24 EnigmaControl1.StartPosition5 = Val(Label3(Index)) Case 25 EnigmaControl1.StartPosition6 = Val(Label3(Index)) Case 26 EnigmaControl1.StartPosition7 = Val(Label3(Index)) Case 27 EnigmaControl1.StartPosition8 = Val(Label3(Index)) Case 28 EnigmaControl1.StartPosition9 = Val(Label3(Index)) Case 29 EnigmaControl1.StartPosition10 = Val(Label3(Index)) End Select End If End If End Sub